home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Games / PC-SIG World of Games (CDRM1080710) (1993).iso / 1314 / OBLITER8.BAS < prev    next >
BASIC Source File  |  1988-02-01  |  842b  |  27 lines
  1. 10 '---------OBLITER8.BAS  1987------------
  2. 20 ' File Destruction Utility
  3. 30 ' Written by James Hill for the Public Domain
  4. 40 ' This program will NOT accept wildcards -
  5. 50 ' - would you want it to? Files "treated" with
  6. 60 ' OBLITER8 will be non-recoverable. Use care!
  7. 70 ' A compiled version is available. Compiled
  8. 80 ' using Microsoft QuickBASIC (trademark).
  9. 90 '-------------------------------------------
  10. 100 INPUT "enter the name of the file to be obliterated: ";N$
  11. 110 CT=0
  12. 120 OPEN "i",1,N$
  13. 130 PRINT INPUT$(1,#1);
  14. 140 CT=CT+1
  15. 150 IF EOF(1) THEN 170
  16. 160 GOTO 130
  17. 170 CLOSE #1
  18. 180 OPEN "o",1,N$
  19. 190 FOR X=1 TO CT
  20. 200 PRINT#1,"!";
  21. 210 NEXT X
  22. 220 PRINT
  23. 230 END
  24. 240 'SYSTEM (for the compiled version, line 140 was dropped
  25. 250 '(For the compiled version, line 140 was ommitted and
  26. 260 'line 150 was used instead.)
  27.